home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1999 March / EnigmA AMIGA RUN 35 (1999)(G.R. Edizioni)(IT)[!][issue 1999-03].iso / earcd / -archivi / -recent2 / amicad_2.00.lha / AmiCAD / ARexx / Majuscules.amiCAD < prev    next >
Text File  |  1999-02-27  |  2KB  |  64 lines
  1. /* Script ARexx permettant la conversion d'un objet texte en MAJUSCULES
  2.    Chez Corbin, 7 Octobre 1997,  Version 1.00, © R.Florac
  3.         7 Décembre 1997, version 1.01: extension à tous les objets sélectionnés
  4.            13 avril 1998,     version 1.02: ajout SAVEALL
  5.            27 Février 1999,  version 1.03: ajout INIT variable
  6. $VER: Majuscules.AmiCAD 1.03 (© R.Florac, 27/02/998) */
  7.  
  8. options results
  9.  
  10. signal on error
  11. signal on syntax
  12.  
  13. 'INIT(OBJET):OBJET=FIRSTSEL'; objet = result
  14. if objet = 0 then do
  15.     'MESSAGE("Il n''y a aucun objet"+CHR(10)+"qui soit sélectionné"):INIT(OBJET)'
  16.     exit
  17. end
  18.  
  19. 'SAVEALL(-1)'
  20. do while objet > 0            /* version 1.01 */
  21.     'TYPE(OBJET)'; type = result
  22.     'READTEXT(OBJET)'; texte = result
  23.  
  24.     i = 1
  25.     l = length(texte)
  26.     do while i <= l
  27.  
  28.     curletter = substr(texte, i, 1)
  29.     if curletter = ' ' then
  30.     do
  31.            i = i + 1
  32.            iterate
  33.     end
  34.  
  35.     texte = overlay(upper(curletter), texte, i)
  36.  
  37.     i = i + 1
  38.     end
  39.  
  40.     select
  41.     when type = 4 then 'SETTEXT(OBJET,"'texte'")'
  42.     when type = 5 then 'SETTEXT(OBJET,"'texte'")'
  43.     when type = 6 then 'SETTEXT(OBJET,"'texte'")'
  44.     when type = 11 then 'SETTEXT(OBJET,"'texte'")'
  45.     when type = 12 then 'SETTEXT(OBJET,"'texte'")'
  46.     otherwise nop
  47.     end
  48.  
  49.     'OBJET=NEXTSEL(OBJET)'; objet = result
  50.     if objet=0 then leave
  51. end
  52. 'INIT(OBJET)'
  53. exit
  54.  
  55. /* Traitement des erreurs, interruption du programme */
  56. syntax:
  57. erreur=RC
  58. 'MESSAGE("Script Majuscules.AmiCAD:"+CHR(10)+"Erreur de syntaxe"+CHR(10)+"en ligne 'SIGL'"+CHR(10)+"'errortext(erreur)'"):INIT(OBJET)'
  59. exit
  60.  
  61. error:
  62. 'MESSAGE("Script Majuscules.AmiCAD:"+CHR(10)+"Erreur en ligne 'SIGL'"):INIT(OBJET)'
  63. exit
  64.